home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Explorer Reset.xpl < prev    next >
Text File  |  2002-11-01  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Explorer\Settings (Advanced)"
  5. "NAME"="Reset Folder View Settings"
  6. "VERSION"="1.02"
  7. "LANGUAGE"="VBScript"
  8. '----"OSVERSION"="000000"
  9. "TEXT 1"="Reset Folder View Settings"
  10. "DESCRIPTION 1"="The Windows explorer, by default, keeps track of the view settings of each folder you have viewed."
  11. "DESCRIPTION 2"="Even if you choosen not to remember each folders view settings, it will still keep some information about the view settings."
  12. "DESCRIPTION 3"="If the Explorer crashes, it can happen that these folder view settings become unusable or corrupt. For example, you might end up with a File column in the details view that is 10.000 pixels in width so you can no longer see the other columns."
  13. "DESCRIPTION 4"="When this happens, you can use this command as a last resort. It will simply reset *ALL* folder view settings to the Windows default, so you are able to see the other columns again."
  14. "DESCRIPTION 5"="However, please keep in mind that it will reset *ALL* folder view settings. For example, if you choosen different view settings for 100 folders, and only one is corrupt, using this command will reset also the other 100 folders."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"=" "
  20.  
  21.  
  22. sPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams"
  23.  
  24.  
  25. Sub Plugin_Initialize 
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  s=InputWindow("Please enter YES when you are really sure to reset all folder view settings","",1) 
  33.  if s="YES" then
  34.  
  35.  
  36.     iCount=RegEnumPaths(sPath)
  37.  
  38.     Dim ary()
  39.     ReDim ary(iCount)
  40.  
  41.     For l=iCount to 1 step -1
  42.         ary(l)=RegEnumElement(l)
  43.     next    
  44.      
  45.     For l=iCount to 1 step -1
  46.         Call DeleteItem(ary(l))
  47.     next 
  48.  
  49.    Call MsgInformation("Items have been deleted!")
  50.  else
  51.    Call MsgInformation("Nothing has been deleted. To delete the folder view settings, please enter YES.")
  52.  end if
  53. End Sub
  54.  
  55.  
  56. Sub Plugin_Terminate 
  57. End Sub
  58.  
  59.  
  60.  
  61. Function DeleteItem(Item)
  62.  iCount=RegEnumValues(sPath & "\" & Item)
  63.  
  64.  For l=iCount to 1 step -1
  65.      RegDeleteValue(sPath & "\" & Item & "\" & RegEnumElement(l))
  66.  next    
  67.  
  68.  Call RegDeletePath(sPath & "\" & Item)
  69. End Function
  70.